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PROGRAM N5ME FPH-i<+ 

MOOEL NUMBER 8F014 

PURPOSE FORTRAN PHASE-14 

PROGRAMME* 3 GIOK WfiLLlANN 

REVISION LIST 



4f^J».#»J<*¥*****.# 



* RV OATE SCC ?V REASON FOP CHANGE 

* 

* 01 11/16/7Q NCNE RP U INITIAL RELEASE 

* 

HONG MPX FORTRAN ** 00 CONTINUE 
^*****## *#♦**#■♦*♦•» ******##«*#**** + ******** ******** 

♦STATUS-VERSICN 1, MODIFICATION 



♦FUNCTION/OPE FAT I CN- 

* * CHECKS FOP VALID SY?>(TAX IN PO STATEMENTS 
AND IN NESTEH OC-LCOPS 

* GENERATES THE COOING NEEOEO TO PERFORM THE 
OO-TEST. 

* CHECKS THE SYNTAX OF 00, CONTINUE, r ACK- 
SPACE, REWINH, UNO FILE, STOP, DA"S? -, ANO 
END STATEMENTS 

* CHECKS r 0R 6 GO TO, IF, STOP, TALL LINK, 
CALL EXIT, rr RETURN STATEMENT AS THE LAST 
EXECUTA n LE STATEMENT OF THr SOURCE PROGRAM. 



♦ENTRY POINTS- 

* * START-PHASE 14 IS READ INTO COF£ PY "HASE 

* l 7 VIA ROLRY, EXECUTION IS °FGUN AT 

* LCCATTCN START. 

•INPUT- 

* * THE STATEMENT STRING 

* * THE SV^oOL TABLE 

* * THE FORTRAN COMMUNICATION AF'EA 
* 

♦OUTPUT- 

* * THE STATEMENT STRTNG 

* * THE SYHECL TA&LF 

* * THE FORTRAN COMMUNICATION AF£A 

* 

♦EXTERNAL RFFERENCcS- 

* * SURROUTINFS- 

* ROLRX 

* * OTHER FORTRAN PHASES 

* NONE 

* 

♦EXITS- 

* * NORMAL- 



S-ITc 



W\ * PHtSc 15 IS CAI.LEH VIA SOL^X AND 

61 * CONTROL IS PASSED TO IT, 

E 7 * * ERFCRS- 

6^ * OVEPLA c - 

ct, * PROCESSING IS FALTER, THE ERPOR WORD is 

65 * SET IN FCOM, °HASE 15 IS CALLED VIA 

56 * ROLPX, CONTROL IS PASSFO TO IT. 

67 * SYNTAX- 

68 * THE ERRCNEGUS STATEMENT IS REPLACED 
6q * WITH i^N EPPOR NUMBER, PROCESSING 

70 * CONTINUES, PHASE 15 IS CALLED VTA ROLP*, 

71 * ANT CONTROL PARSED TO IT. 

72 * THE ERRCPS DETFCTEO ARE NUMBERS 51,52, 
77 * 57,-^,55,56,^7,58,59,6 ANP 61. 

7U, * 

75 *TARLES/WCRK AREAS- 

?6 * * THE STATEMENT STRING 

77 * * THE SYMBOL TABLE 

78 * * THE c OPTRAN COMMUNICATION b°Eb 

79 * 

30 *ATTRIBUTES-N/A 

81 * 

8? *NOTES- 

87 * THE SWITCHES USED IN PHASE 14 FOLLOW. IF NON- 
84 * 7ERO, THE SWITCH IS TRANSFEP=T, IF ZE^O, THE 
85 * SWITCH T^ NOR*AL = N. 
85 * NORMR-PAUSF OR STOP STATEMENT 

87 * T PAUSE OR STOP FCUND 

q^ **«««*»¥** ******** ****** ********* ******.**^******** 

89 HONG MPX FORTRAN ** DO CONTINUE 

_90_ __ AB S__ /^T^ C^/?fc~ 

91 * 

9? * SYSTEM AND ftptRAN EQUATES 

93 * 

qit MEMRY £OU /T^-F-F ^A" MAXIMUM OOR c SIZE 

95 PHSIZ ECU **7?0 MAXIMUM PHAS? SIZE 

96 OVEPL SOU MEMPY-PHSI7 PHASES ?-29 START 

97 FCOM ECU OVEPL-2? FORTRAN COMH, TABLE 
qg PHNT9 ECU -C0M-56 PHASE TABLE 

99 ROL'X ECU PHNT='-50 IN TC P D HASE CALL 

100 * 

101 * FORTRAN COMMUNICATION AP C A 

10? * 

irn ORG FCOM FORTRAN COHM AREA 

10* SCFS BSS 1 START OF STRING 

106 EOFS BSS 1 ENO OF STRING 

106 SCFST BSS 1 ^TART OF SYMBOL TABLE 

107 SOFNS BSS 1 START OF NON-STMNT NOS. 
10* SOFXT BSS 1 START OF SUPSC TEMPS 

109 SCFST BSS 1 START OP OENfRATFC TEMPS 

11(1 EOFST BSS 1 "NO OF SYMBOL TABLE 

111 CCMQN BSS 1 NEXT AVAILA D LE COMMON 

11? CSIZE BSS 1 SIZE OF COMMON 

117 ERROR BSS 1 OVERLAP ERROR 

Hi» PNAME BSS 1 PROGRAM NAME WD 1 

116 9SS 1 PROGRAM NAME WD 2 

116 SCRF BSS 1 StJPR (-) OR FUNG ( + ) 

117 CCWO BSS 1 r ONTROL CARD WD 

118 * p IT 1.5 TRANSFER TRftCE 

119 * PIT 14 ARITHMETIC TRACE 



SEITE 



120 * n IT 11 EXTENDED PRECISION: 

121 * PIT 12 LIST SYMBOL TABLE 

122 * PIT 11 LIST SUBPROGRAM NMES 

123 * r IT 10 LIST SOUPCE PROGRAM 
12tj * °IT 9 ONE WORD INTEGERS 

125 IOCS BSS 1 IOCS OONTPOL CAPO WORD 

126 * 

127 * SEE PHASE ONE FOR BIT PATTERNS 

129 OFCNT BSS 1 BE r INEO PILE COUNT 

130 * 

111 LCOMN BSS 2 *IZE OF INSKEL COMMON 

132 * 

131 ICCER BSS 2 IOCS CONTROL CA*D F.SROR 
lit* * 

IIP BSS 2 SYSTEM LOADER USE 

136 * 

117 * END OF FORTRAN COMMUNICATION 

1^8 * AREA 

119 * 



* 



li+i HONG *0X FORTRAN ** PC CONTINUE 

m? ORG OVEPL PHASE ENTPY 

1*3 START LO EPROR TEST FOP OVEPLAP r RROR 

ikk BSC L OUT, 7 BRANCH IF ERPO^ 

1«»S * 

1U6 * INITIALISE PHASE 

1^7 LOX II SO p * INITIALI 7 E INPUT a OINT£P 

1«»8 LDX L3 TABLE-** INITIALIZE n O TAPLE PT 

li»Q SLA 16 CLEAR FIRST WOPD 

150 STO 3 k OF 00 TABLE 

1*51 * 

152 * 

153 * CHECKS FOP END, no, STEP, AND 
151, * PAUSE STATEMENTS 

155 ABEL LD 1 LOAC STMNT TD WO^O 

156 STX LI a Avr save ADDRESS OF TO WORD 

157 SRA 2 

158 AND IOT c E GET STMNT ID TYP? 

159 S ENOO IS IT END STMNT 

160 BSC L OOT n L, - DRANCH IF YES 
161 

162 

163 S DOC IS IT DO STMNT 
16<4 BSC L FULL, - BRANCH IF YES 
165 
166 

167 S 3AC*r 13 IT BACKSPACE 

168 9SC L CALL1, - BRANCH IF YES 

169 * 

170 * 

171 S WINOC 

172 BSC L CALL?, 
173 
17t» 



* 



* 



* 



IS 


IT REWINC 


BRANCH 


IE 


YES 


IS 


IT ? 


:nd 


FILE 


BRANCH 


IF 


YES 



17 c S FILEO 

176 BSC L CALL1, - 

177 * 

178 * 

179 S STOFC 15 IT STOD 
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180 
181 
182 
181 
18i» 
18*5 
186 
187 
188 
189 
190 
191 
19? 
197 
19*» 

195 

196 

197 

198 

199 

200 

201 

20? 

203 

20*» 

205 

206 

207 

?08 

209 

210 

211 

212 

213 

21<» 

215 

216 

217 

218 

219 

220 

221 

222 

223 

??U 

225 

226 

227 

228 

229 

230 

231 

23? 

233 

23ft 

235 

236 

237 

238 

2^9 



3SC L CALl>, - 



S 
OSC 



s 

BSC 



BAKER LO 
OSC 



BSI 
MPX 



* 

IDTPE 
IONRM 

enoc 

OOC 
BACKC 

WINOC 

PILEC 

STOPC 

PflUSC 

CCNTO 

TWO 

ONE 

TABLE 

ERR51 

ERRTD 

ERSID 

CNTOK 

ER053 



or 
oc 
oc 
oc 

00 

oc 

1C 

oc 
oc 
oc 
oc 
oc 

OSS 

oc 
oc 
oc 
oc 
or: 



CNTST LO 

BSC 

LO 
MQX 

OCTBL LO 
3SC 

* 

STO 

LO 

STO 



0/iUSC 
CALL 5. 



CONTO 
CNTET, - 



ORANCH IF V£S 



IS IT PAUSE 
BRANCH IF YES 



IS IT CONTINUE 

ORANCH IF YES 



CHECKS FOR NUMBERED STENTS 
DOES STUNT HAVE STMNT 

TINUE,E ORANCH IF YES 



we. 



L MOVE 
AREL 



MOVE TO NEXT STAT 
START STMNT CHECK 



:hent 



CONSTANTS 



/3E00 
/01FF 

/OhOO 

/120C 

/ECOO 

/0800 

/FCPO 

/2800 

/F800 

/2COO-/2600 

2 

1 
126 

51 

/AGO 8 
/Aonn 

/T009 



STMNT 10 TY<~E MA^K 

NOBM MASK 

ENO 

00 

OAGK SPACE 

REWIND 

ENO FILE 

STOP 

PAUSE 

CONTINUE 
TWO 
ONE 

00 TABLE 
ERROP NO. 51 
ERROP STMNT ID 
ERROR STMNT 10 
CONTINUE STMNT 
E3P0P NO, F 7 



WTRO 
WIT" NO. 

I r WQPO 



1 

CNTOK 

L LAKE'S, 



E P Q c "» 
CLCS1 1 



LOAO STHNT 10 
IS 10 WORO OK 
ORANCH IF YFS 



WOFB 



SET UP FPROF NO. 5"* 

PUT ERROF STMNT FN STRING 



FHECKE TO INSURE THfiT THE 00 
TABLE IS EMPTY AT THE r NH 
OF PHASE 
i* IS 00 TAELE EM°Tv 

0UT1 , - PRANFH IF YfS 



LO 



1 1 

1 
1 3 

E^R C 1 



STORE 00 RANGE STMNT NO, 
LOAD STMNT TO WC^O 
°UT BACK ON STRING 
LOAO EOF n P NO. 51 
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210 
211 
21? 
2*i3 
211 
215 

216 
217 
218 

219 
250 
251 

252 
25 3 
2F1 

25 s ; 

256 
257 
258 
259 
260 
261 
262 
263 
261 
265 
?66 
267 
268 
269 
27 
271 
272 

273 
271 
275 
276 
277 
278 
279 
290 
281 
282 
283 
281 
285 
286 
287 
288 
289 
290 
291 
292 
293 

291 
295 

296 
297 

298 
299 



STO 

l_n 

5TO 

MDX 

MDX 

STX 



LD 
A 
S 
BSC 



1 2 



JIMY 

* 
OUT 

* 

NRMSV 

ERRNO 

CONTC 

DIP 

HCTID 

£RR*2 

TBCN 

PULL 



* 
* 
CLOS1 



* 
* 

CLOSE 



LO 
STO 



RSI 

DC 



GET 



CflLH 



oc 
nc 
oc 

DC 

OC 

oc 



STX 

LO 

S 

osc 



LO 

STO 

STX 



LHX 

LO 

SRA 

AND 

STO 

A 

STO 

LOX 

LD 
BSC 

MDX 

LO 



1 
1 

LI 



L 
L 
L 

L 



L 

L 



2 

E»STO 



-5 
~OP^ 



EO^ST 
TWO 
EOFS 
0OT c L,- 



CNE 

ppqpp 



"LIT ON STRING 

LOAD ERROR STHNT ID WORD 

PUT ON STRING 

HOVE IN^UT PT 

MOVE DO TAP-I.E D T 

NEW END OF STRING 5QRRESS 



CHECK FOP OVERLAP 
BETWEEN STRTNG AMD 
SVM90L TA^Lf 
BRANCH IF NO OVERLAP 



SET UP 

OVERLAP ERROR 



TRANSFERS TC THE f OL RCUTTN* 
TO LOAD THF ME XT PHASE 
R0L c X rfltL OCWN PHASE H 

!«; NEXT PHASE NUMBER 



CONSTANTS 



n 
o 
/?roo 


/CO' 7 

'32 
TABLE 



121 



T £vjPOPA.pv STORGE PQR NOR M 

ERROR NUMBER 

CONTINUE TO TYPE 

TEMPORARY STORAGF 

DO STMNT IO WORD - NORM 9 

ERROR NO. ^2 

END OF TABLE 



CHECKS FOR HOPE THAN 2 ! 
IN THE DO TARLF 



'NTRIES 



DIP 
DIP 
TBCN 

CEE,7 



ERRN'C 
3 SAV& 3 1 



STORE 
IS DO 
FULL 
BRANCH 



TAPLE 
T A PL E 

NOT FULL 



Of TMJFR 



SET UP 

E3RQP NO. 5? 
SAVE DO TABLE 



D JC 



STMNT 



A one 



REPLACES THE ERRONEOUS 
WITH SN ERROR MESSAGE 
CLOSES U° THE STRING 
II PAVE LOAD STMNT TD WORD 
i LOAD STMNT 10 WCPO 

2 GET STMNT 

L IONPM NORM 

NRMSV SAVE NOP* 
L n AVE GET ADDRESS OF NEXT STMNT 

GET 1 10 WOPn 
L2 INITIALIZE \ OOP INPUT °T 

*MO0IFIAPLE 
1 LOAD STMNT 10 WORD 

L CAL0,E BRANCH IF HAVE STMNT NO, 
OAL<- U GO GET ERRO*? 10 

EPITC LOAD ERROR TO WO^O 
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3(10 

301 

302 

303 
30*t 

305 

306 

307 

308 

309 

310 

311 

31? 

313 

31% 

315 

316 

317 

713 

319 

370 

321 

3?? 

373 

1?J* 

375 

376 

377 

378 

37° 

370 

731 

3 37 

333 

33«» 

335 

■*36 

3 37 

738 

^39 

340 

341 

34? 

34 3 

344 

345 

346 
"<47 
348 
349 
350 

351 
757 

^53 

354 

3^5 

356 

357 

358 
75Q 



CALD7 



RANGE 
LGOP1 



SAVE 3 



STO 
MDX 

MDX 

LD 

STO 

LP 

STO 

MOX 

to 

s 
s 

STO 

i_nx 

MDX 
LO 
STO 
HDX 

HOX 

MOX 

mdx 

STX 
LOX 
LOX 

BSC 



WHY 

LOADI 

ADDI 

STOI 

SU9TI 

RSCT 

OOXIQ 

ERITD 

NC51E 
* 

* 
TINUE 






ER51 
* 



on 
oc 
oc 
oc 
or 

DO 

OC 

no 
oc 

oc 



LO 

S 

BSC 



RSI 
OC 

OC 



LP 
'IPX 



L 

L 



L3 

7 

1 
1 
? 

3 

LI 
II 
L3 




1 
CAL r 7 

ERRIG' 



ERRNC 

1 

1 

EOF* 

PAVE 

N^MSV 

RANGE 



1 



1 

1 

1 

-1 

L00F1 

EOF* 

PAVE 



7AKFP 



OUT ON STRING 

HOVE PT OVtP STMNT MO, 

^UT ERPOS NO. CN STRING 

LOAD ERRCP 10 WC>n 

OUT ON STPING 

LOAO ERROR HO. 

PUT ON STRING 

HOVE POINTcF 

FIND RANGE 

OF STRING 

TO RE 

HOVEO 

INITIALI7E RANGE CTR 
*HOOIFIARLE 

hove wo c r oown 

IN STRING 

MOVE POINTERS 

DECREMENT RANGE COUNTER 

CONTINUE LOOP 

NEW ENO OF STRINf" ADORE' 

RESTORE INPUT °T 

RESTORE CO TPL °T 

♦M0DIFIA9LE 

CHECK FOR STMNT NO. 



CONSTANTS 

TEMPORARY STORAO r FQP PT 

/0800 LOAO INSTRUCTION 

/180 A00 INSTRUCTION 

/100G STORE INSTRUCTION 

/700 SUBTRACT INSTRUCTION 

/50^6 OSC I INSTRUCTION 

/7000 00 STHNT 10 

/AOOO ERROR ST*NT 10 WCRC 

/0C-/06 r ORMAT 

51 ER^CR NC 51 



CHECKS FOR 

NO, IN THE 

CHECKS FOR 

LOAD 



AN EQUIVALENCE STMNT 

00 TA Q LE 

A TRAN C FER C TMNT 

WORT 



L 9AKER 7,7 



TRCKS 
* 1 

P^>£M 



IS IT 00 RANGE STHNT NO, 
BRANCH IF NOT 



CHECK IF TRANSFER STHNT 
RRANCH IF TPANSFFR 
RRANCH IF NC TRANS C ER 



N051c 
CL0S1 



SET UP 

E3RCR NO. 



51 



FIDWC IS IT FORMAT STMNT 

CHECKS THE STMNT 10 WCFO FOR TM 
REFERFNCEO INDICATOR 



SlITE 



35 
361 
36? 

363 
364 
7 66 
366 
"*87 
368 
369 

3?n 

371 
37? 
373 

37** 
37<5 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
337 
38 8 
389 
390 
391 
392 
**93 
3°4 
395 
-»Q6 

397 
39* 
399 
400 

401 

402 

'+04 
405 
406 
407 
«♦ 08 
409 

<4l0 

411 

m3 

414 

ms 

416 
417 
418 
419 






* 






LI21 

Mcvr 



BSC 



LO 
OR 

STO 



STX 



LO 
SRA 
AND 
S 

BSC 



BSI 

nnx 



CHECKS FOR A CONTINUE ^T^NT 
L ER51, - BRANCH IF YES 



LO 

STO 



HOX 



STX 
LO 
S 

STO 
OCUNO LOX 

MDX 

LOX 
LO 
BSC 
HOX 
LO 
HOX 
TRYHR LP 
S 

STO 
LO 
HOX 
STO 
STX 
LO 



ONWTH 
LC07 



1 
L TWO 

1 



1 WHY 



1 

2 

L IOTPL 
CONTC 
L MOVE1, 



L MOVE 

LT7 



°UT REFERENCED STMNT ^IT 

IN STMNT IC 

OI.IT nAC* ON STRING 



SAVE INPUT PT 



LOAD STMNT TO WO^O 

GET STMNT 

IO TYPE 

IS IT CONTINUE 

BRANCH IF vr s 



MOVE °T TO NEXT ^TMNT 
OPEN U n STRING 



THE IO WORD OF CONTINUE 
STMNTS DEFINING THr no RANGE 
TO THE DO TEST T^PE 
0P r NS THE STRING SIX *C^ r WOROS 
DOTTE CHANGE I r WORD 
10 TO CO TEST 



STO 

HDX 
HOX 
HOX 
LOX 



1 2 

OPEN 
1 TEH 
L EO^S 
TEH 
BOUND 1 

11 

1 1 

12 EOFS 
7 3 

L TRY^R,7 

2 7 
L07 

CNWTM 

I D A V E 
PRO 

I D AVE 
L06 

2 6 

LOC7 

L2 EOFS 
? - 6 

2 
2 -1 
1 -1 

L0Q7 

II TEH 



M OVE Pointed 

C TRING 6 OR 7 WORTS 
SAVE IWUT POINTER 
GET SI7E O^ STRING 
TO BE HOVEO 

STORE SI?E TO B^ MOVED 
INTTIALI7E SIZE r TR 



INITT 

LOAD 

BRA NO 

HODIF 

LO*D 

HOVE 

LOAD 

SUBTR 

OUT q 

LOAD 

HOD IF 

OUT I 

NEW E 

LOAD 

♦INST 

PUT I 

HOVE 

OECRE 

CONTI 

RESTO 



ALI7E 
OO INC 
H IF N 

Y LOOP 
INPUT 
STRING 
STHNT 
ACT ON 
ACK IN 
IN D UT 

Y LOOP 
NSTRUC 
NO OF 
WD ON 
RUCTIO 
N NEW 
PT 

HE NT C 
N'lf LC 
RE TN 



LOO D INPUT °T 
f£MF NT 
OT 7EPO 

PT 
INSTRUCTION 

UP 
10 WORD 
f. fPQH NORM 

STRING 

INSTP!!C T ION 

POTNTE c 
TION TN LOOP 
STRTNF arjORESS 
ST P INC. THIS 
N IS HODIFIAPL 
LOCATION 

TR 
OP 
FUT «=T 



SEITE 



4?n 
4?i 

4?? 
4?3 
k?k 

4?6 
k?7 
t*28 

4?9 

^ "^n 

431 
43? 
i»3t 
434 

435 
4 36 
4 37 
(438 
439 
44f! 
441 
44? 
443 

444 

445 
446 
447 
448 

449 
450 
451 
45? 
457 
454 
45* 
456 

458 
459 
460 
461 
462 

46 3 

464 
465 

466 
467 
468 
4 6P 
47(1 
471 
47? 
473 
474 
475 
476 
477 
478 
47P 



* 
* 

* 

OVLA° 



* 

* 



XY7 



* 



LD 

A 

S 

DSC 



LD 
DSC 



AND 

OR 

STO 

ld 

AND 

OR 

STO 

LD 

AND 

OR 

STC 

LD 

ANn 

OR 

STO 

LD 

STO 

LD 

STO 

MOX 



LDX 
DSC 



NASTY 



* 
* 



TEH 



LD 

STO 

LD 

STO 

LD 

STO 

MOX 

LD 

AMD 

OR 

STO 

MOX 



DC 
DC 



L EOFST 

L TWO 

L £OF^ 

L JIHV, 7 



CHECKS FOR A SYM T3L QVEPLA 
INSERTS THE DO TEST COPING 
INTO THE STMNT STRING 

IS TH£PE 

OVERLAP PETWEEN 

STRING AND SYMBOL TAHLE 

BRANCH 1^ YfS 



3 3 

L NASTY, - 



:nse 




MASK5 

LOAOI 


3 

M A S K 5 

ADD! 

1 



MASK 3 

STOT 

? 

2 

M A S K F 

SURTT 

3 

9S0T 

4 

1 

5 

-5 



LOAD DC INCREMENT 
RRANCH IF 7FRO 

PT DO TEST 

LOAD DO INDEX - COMBINE 
WITH LOAn INSTRUCTION - 
OUT ON STPING 
***** |_rj INDEX 

LOAO INCREMENT - COMBINE 

WITH Ann INSTRUCTION - C U 

ON STRIMC 

***** A INCREMENT 

LOAO INDEX - COMBINE WITH 

STORE INSTRUCTION - PUT 

ON STRING 

***** c-fc INDEX 

LO*D TEST VALUE - COMBINE 

WITH SUPTRACT INSTRUCTION 

- ™UT ON STRING 

***** S TEST VALU 

OUT PSC I ON STPING 

PUT TEST STf'NT NC. 

ON STRING 

***** nso J *-*,- 

REHCVE DC T*QLE ENTRY 



II WHY 
L 3AKER 



MDXI 
1 
* 

1 1 

NOP1 
1 2 
1 1 

3 

MASK5 
LOAOI 

1 2 
XY7 



*-» 
4 



RESTORE INPUT °T 
CHECK Fnp STMNT NO. 

INSEPTS THE SPECIAL DO TE3T INT 
j H r STRING WHEN THE INCREMENT 
IS IMPLIED 

CUT MOX I OH STRING 

LOAD INDEX - PUT OH ST" IN 
***** ^gy j INDEX 

LOAD NOP - PUT hkj STRING 

***** KQP 

HOVE INPUT POINT- 3 

LOAO INDEX - COMcinjp WITH 

LOAO INSTPUPTION - PUT CN 

STRING 

***** LD- INDEX 

INSERT PEST OF TEST 

CONSTANTS 

TEMPORAL STORAGE 
ONE COUNT FDR NO c M 



SLITE 



430 
481 
48? 
483 

484 

£»35 
48ft 

489 
490 
491 
49? 

493 
494 
49*5 
496 

497 
498 
499 
500 
501 
502 
50^ 
^04 
505 
50ft 
507 
508 
5 09 
510 
511 
51? 
513 
514 
515 
516 
517 
518 
519 
5?Q 
571 

5?? 

523 
5?4 
5?5 
5?ft 
5?7 

5?8 
S?o 

530 
531 
53? 
533 
^34 
5 35 
5 36 
5^7 
538 



DOIO 

OCLCN 

MASK 

THRE 

MASK4 

NCRH4 

MASK5 

HCXT 

LC6 

LD7 

L03 

NOPI 

* 
* 



LI7 



* 
* 



PCUN 



hpxy 

ONON 
LOOT 






oc 

DC 

oc 
no 
oc 

DC 
DC 
OC 
LD 

in 

LP 

oc 
oc 






SRA 
A NO 

s 

BSC 



STX 

LD 

S 

A 

STO 

LOX 

LOX 

LD 
BSC 

MDX 

Ln 

HHX 

LO 

MDX 

STO 

STX 

Ln 

STO 

HOX 
HOX 
HOX 



LOX 

LO 

S 

SLA 

A 

STO 



Mnx 



L 

L 
L 



/C0?4 OO IP WORD 

ftt COLON 

/07FP SYMBOL TABLE POINTER MASK' 

3 THREE 

/0200 MASK TO CHECK IP SUNT NO 

CONSTANT 

/87FF INSTRUCTION MASK 

/51P1 MDX I INSTRUCTION 

-6 LOAD INSTRUCTION 

-7 LOAD INSTRUCTION 

-8 LOAD INSTRUCTION 

/6000 fJO-OP INSTRUCTION 

/C01C BASIC OC TEST ID WORD 



CHECKS FOR A OC STMNT, IF NCT 
FOUND, OPENS THE STRING SEVEN 
WOROP - INSERTS T^E OG TEST 
10 WORD 

LOAD STMNT ID WC^O 

GET STMNT 

10 TYPE 

IS IT DO STMNT 

BRANCH IF YES 



11 

I? 
7 

L 

7 



L? 

9 



n 

2 

IBT^E 

DOXIC 

LIZ1 , - 



TEM 

EOFS 

TEM 

ONE 

DOU* 1 



EO^S 

1 
M»XY 

8 

L08 
CNCN 
LB 7 
7 
LOOT 

EOP c 

-7 



II 



F WORTS 
POINTER 



STRING SI7£ CT 



? 
? -1 
1 -1 
LOOT 



TEH 
L07 
LOOT 
2 

M?S 




1 1 



OPEN STRING f OR 
SAVE INPUT 
GET SI7E 
OF STRING 
TO BE 

1 MOVED 

INITIALIZE 
♦MODIFIABLE 

INITIALISE lOOn INPUT D T 
LOAD DO LBnp INCREMENT 
,-> BRANCH NCT 7ERO 

MODIFY LCO c POINTER 
LOAO INPUT INSTRUCTION 
GO STORE INPUT INSTRUCTIO 
LOAD IN"UT INSTRUCTION 
MODIFY LOOP P0INTE D 
SAVE INPUT INSTRUCTION 
NEW END OF C TRINP AODRFS c 
MOVE WO U*», THIS IMST IS 
*MODIFIAnL r 
TO NEW LOCATION 
HOVE INPUT roiNTPR 
OEOREMFNT COUNTER 
CONTINUE LOOP 

INSERT 00 TEST IC WORE 

RESET IN»UT POINT£= 
GET PI 7 E OF INSTRUCTION 
STRING TC Bt OUT c UTTED 
O0M9INE THIS SI 7? WITH 
BO ID WORD 
"LACE ON STRING 



MOVE INFUT POINTER 



SEITE 



1 1 



5«»n 

5*+? 
5*»3 
5kk 
5*>5 
5*46 
5^7 
5*48 
Fi*9 
5^0 
551 
552 
553 
55£» 

555 
556 
557 
558 
559 
5*0 
561 
56? 
563 
56«» 
565 
566 
567 
563 
569 
570 

571 
57? 
573 
57^ 
575 
5^5 
<577 
579 
579 
580 
561 
58? 
583 
59*t 
585 
5 86 
587 
588 
589 
590 
591 
59? 
5<H 
59<* 
59F 
595 
597 
598 
599 



ERR53 

DAVE 

X32 

» 
CEE 



* 
* 



ER5"< 



95 7 

* 

HA" 









HDX 



DC 
DC 
DC 



HDX 
BSC 

hdx 

HDX 



LO 

DSI 
AND 
EOR 
BSC 



DC 

EOR 

BSC 

m 

bsc 

LD 

s 

RSI 

LD 

BSC 



LD 
STO 

HDX 



LP 
S 

BSC 



HDX 



LD 
IS I 
STO 

AND 
FDR 



L 

L 
L 
I 

I 
L 



CVLA p CHECK OVERLAP 
CONSTANTS 



53 



32 



ERRCP NO. 57 
STORAGE FOS ID W? 
DEFINED VARIABLE 



3 5 
t 
E 
1 1 
1 1 



INITIALISES TO 
GETS THE STMNT 
3YM T9L 

HOVE 

LOAD 

SKIP 

HOVE 

HOVE 



SCAM the 
NO. FPC W 



RO ADDS 
HIT 

STMNT 
THE 



TRL RTF TO NEXT a OS 
STMNT ID WC^O 
IF NO STMNT NO. 
PT OVER STMNT NO. 
POINTER 



1 

L CHECK 
H A S K 4 
w A S K U 

L HAF, - 



H**OS0 
R53, - 
SORF 
R53, 
F N A M E 


ER53, • 

PORt; 7 

CLCS1 : 



LOAD WOR r 

GET SYHPOL TABLF ID WORD 

IS IT 

SUNT NUMRFP 

BRANCH IF YES 



ENTRY POINT 

DHECK IF SUBPROGRAM 

NO, GO INDICATE ERROR 

IS IT FUNCTION SUBPROGRAM 

BRANCH IF MOT 

IS IT TMT9 FNE 



GO BACK 
SET UP 

ER^CP NO. 



IF pk 



1 1 



1 1 



PUTS THE 00 RANGE STMNT NO. 
WOPD c OF THE DO TBL ENTRY 
RHECK^ FOR VAL T " VARIAnj_P5 
INDICATES DEFINITION CF ALL 
DE C INED VARIAPLES 

LOAD STMNT NUMO£ c 
PUT IN 

HOVE °0 INTER 



INT 



LOAD WOPD 

COLCN IS CHARACTER COLCN 

R5 3,7 RRANCH IF MOT 



1 1 HOVE STRING POINTER 

LEGAL VARIARLF 

1 LOAD WO°P 

CHECK GET TPL ID WOPD 

SAVES SAVE SVH TBI ID WOPD 

HDB r E IS IT LEGAL, 

MASK1 INTEGER VARIABLE 



SEITE It 



600 
601 
602 
607 
60«t 
R 05 
606 
607 
603 
609 
610 
611 
61? 
613 

616 
616 
617 
618 
619 
*?0 
621 
62? 
6?3 
6?** 
625 
J26 
6?7 
6?8 
6?9 
630 
631 
672 
633 
63«t 
635 
636 
637 
638 
639 
6*»0 
6«*1 
6l»2 
6*43 
hhh 

6V5 
£«<6 
6^7 
6«»8 
6t»9 
650 
651 
65? 
653 
65U 
655 
556 
657 
65 8 
669 






* 



» 
x 

PENG 

* 






* 






AAA 

» 



AA 



BSI 



LD 
OR 
STO 



LO 

BSC 

MOX 

LP 

AND 

3SC 



LO 
3SC 



EP53,? 



Ln 

STO 



HOX 



BSC 



nnx 



LO 

3SI 

AND 

eor 

BSI 



LD 

BSC 

HDX 



LD 
STO 



HDX 
MOX 



LO 
BSC 



sav; 

X3? 
? 



SORP 



3ENP 

SAVES 

HASK7 

D EN r , 



ERR56 

CLGS1 1 



RRANOH IF NOT 



LOAD STMNT 10 WO-0 
PUT IN DfFTHED V AR BIT 
PUT n Af"* IN SYMBOL TA^Lt 



LOAD SOPP 

S^IP I r FUNCTION 

PUT VARIABLE IN CO TABLE 

LOAD SY* TBI 10 MOPO 

IS VAR IN COMMON OR DUMMY 

ARGU M ENT - BRANCH TF NO 



SET U° ERROP NO. 5^ 

PUT ERPOS ^TMNT CN STRING 



1 1 



PLACCS THE INDEX VARIABLE INTO 
WORD 1 O p THE DO TF>L ENTRY 

LOAD VARIABLE 

PUT IN DO TABLE 



HOVE STRING POINTER 





EOAl 

R57,7 



LOAD WOPD 

IS CHARACTER EQUAL 

BRANCH IF NOT 



1 1 HOVE POINTER 



LOAD WORD 

CHECK GET SYMPOL TABLi ID WORD 

MASK3 IS IT A VALID CONSTANT OR 

HAS*! VARIABLE INTEGER 

ER5~*>7 BRANCH IF NOT 



LOAD WO^D 

SKIP IF NON-7ERO 

ERRCR IF 7EP0 

SAVE *1 p 0F DO INITIAL T 7- : 
LOAD INITIAl VALUE 
OF INDEX 



SA 



1 
Ml 



1 1 
A 



ERR5i« 
CLOS1 1 



HOVE POINTE r 
GET TE^ T VALUE 



SET UP ERRCR NO. 5** 

PUT ERROP STMNT CN STRING 



ScITE 



66fl 
661 
662 

66 3 
66U 
665 
666 
667 
668 
669 
670 
571 
67? 
673 

67 k 
675 
676 
677 
678 
6^9 
680 
681 
68? 
683 
63<* 
685 
686 
6 87 
688 
689 
690 

691 
69? 
693 
69*+ 
69«5 
696 
697 
698 
699 
700 
701 
70? 
703 
7Q«t 
705 
706 
707 
708 
709 
710 
711 
71? 
713 
714, 
715 
716 
717 
718 
719 



CONSTANTS 



SAVES 

i-^oeo 

H8000 
MASK1 
MASK7 
Ml 

EQAL 
MASK! 

COME 

DOIIO 

CATCR 

SIGN 

ERR5*t 

ERP55 

* 
HEMP 



A 









DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 

* 



* 






SLA 

STO 
MOX 



ID 
S 

8SC 



'inx 



LD 

9SI 

AND 

EOP 

9SI 



LD 
STO 



MDX 



LD 
S 

DSC 



MOX 



LD 
DSI 

AND 
EDR 



/A0 C 
/8OO0 
/i»000 

/?A00 



/000E 

/690E 

/001? 

/580C 

/02?0 

/R001 

5k 

5 5 



STORAGE c OP SYM T=>L ID 

SIR" SYM T^L in 

USEFUL CONSTANT 

MASK TO TFST FOR INTEGER 

COMMON OR DUMMY ARC MASK 

INITIAL IND^X VALUE 

EQUAL SIGN 



VAR 1NTEG! 



MASK 



- MO R ^ 7 
^OR STMNT 



NO, 



°LAC! 

INTO 

PUTS 

INTO 



16 

3 



1 
COME 

R5 3, 7 



1 1 



1 

L DHE r K 
MASK'* 
MASK1 

L EP5^ 



1 
3 ? 



1 1 



1 
COM? 
L 0EMP,7 



1 1 



1 
L CHECK 
M A S K 3 
MASK1 



00^ OR 

COMMA 

no IP Tvpr 

SYM TPL ID 

SIGN ^ITS 

ERROR NO, 5h 

ERROR NO, 5 C 



:S A ZERO AS THE INCREMENT 
WORD h 0^ THf DO T9L ENTPV 
THE TEST VALUE CONSTANT 
WORD 3 OP THF DO T m. ENTRY 

PUT ZERO IN DC TS^Lt AS 

VALUE DF INCREMENT 

GO TO END Or STMNT 



LOAD WORD 

IS CHARACTER COMMA 

BRANCH IF HO 



MOVE STRING POINTER 



LOAD WOT 

GET SYM TRL 10 WORD 
IS IT VALID INTEGER 
CONSTANT OR VARIADL : 
RRANCH IF NO 



°UT INTT,EP IN DO TA3! 
AS TEST VALl'E 



MOVE STRING POTNTEP 



LOAD CHARACTER 

IS CHARACTER COMMA 

BRANCH IF NO 



MOVE STPING POINTER 



LOAD INCREMENT 

GET SYM TPL 10 WORD 

IS IT VALI P CONSTANT OR 

V All A RLE INTEGER 



3EITE 1' 



720 
721 
722 
773 
7?k 
725 
7 76 
727 

72a 

7^0 

771 

732 

733 

77% 

7*5 

776 

7 37 

738 

779 

7i*0 

7%1 

7J42 

7%3 

7kb 

7h5 

7%6 

■>k7 

7(46 

7%9 

750 

751 

752 

753 

75% 

755 

756 

757 
758 
759 
760 
761 

762 
763 

76% 

765 
766 
767 

768 

7S9 
770 
7 71 
772 
773 
77U 
775 
776 
777 
778 
77° 



3SI L ET?57,7 



SEM 



XY72 






VEN 



VEN1 



°OOL 



LO 1 
STO 3 3 



MOX 1 1 



LO 

RSC 



mox 

SIX 

LOX 

LO 

SRA 

AND 

STO 

LD 

DSC 

MOX 

LD 

STO 

LD 

OP 

STO 

LO 

OR 

STO 

MOX 



STX 
LOX 



MEN 

* 



MOX 

LO 

STO 

MOX 

MOX 

MOX 

MOX 

STX 

LOX 

LOX 



3 

R5" 



HRANCH IF NOT 



PUT INTEGER IN DC TA^LE 
AS INCSE M ENT 



MOVE STRING POINTER 



CLACtS THE 00 INITIALISE COOING 
ON THE STRING 
OLOSES LP THE STRING 
LOAD CHARACTER 

7 BRANCH IF NOT ^-t-'I-COLON 



1 

1 

II 

1 

L 
L 



1 

VEN 1 

PAVE 



2 

IDNR* 

NRMSV 



E 

XY71 

00170 



Ml 

1 


STCI 

2 
7 



PUT OCT 00 INITIAII7E 

MOVE STRING PT TC NEXT 
STMNT - SAVE ADDRESS 
LOAC PRESENT STHNT ID AQP 
LOAD STMNT ID WO^H 
GET STMNT NORM 



OLOSf 



7 HEN 1 
L? 



LD L EOF* 

S L PAVE 

S L NRMSV 
STO VEN1 1 

LOX LI 3 



3 
? 
1 
1 
7 

LI 
II 
L 7 



1 


1 

1 
1 
-1 

POOL 
EOF? 
^AV? 





SAVE NORf' 

LOAD STMNT ID WOFO 

SKIP IP NO STMNT NO. 

OUT IN COP"ECT ID WORD 

LOAD DO STMNT IC WORO 

PUT ON STRING 

LOAD INITIAL INDEX VALUE- 

COMBINE WITH LOAF I\|ST 

***** j_g INITIAL 

LOAD INDEX - COMBINE WITH 
STORE INSTRUCTION - OUT°U 
***** cjc INDEX 

MOVE STRING POINTER 

UP STRING 

SAVE DO TA^LE POINTER 

LOAF, ADD r QF NEXT STMNT 

*MOOIFIA"LE 

GET SI7t 

OP STRING 

TO BE MOVED 

a UT IN COUNTER 

INITIALIZE COUNTFR 

♦MODIFIABLE 

MOVE WQPF DOWN 
IN STRING 
MOVE POINTERS 

DECREMENT COUNTERS 

CONTINUE LOOP 

MEW END CF FTRINF ADDRESS 

RESTORE IN D UT D 0INT£R 

°ESTCRE HO TAPLE POINTER 

♦MODIFIABLE 



SEITE 



780 


* 










781 


* 






CH-CK* 


FOR ft NUMBERED C T^NT 


78? 


» 






FOLLOW 


IING THE CO STMNT 


7 83 


* 






IP Nil* 


'PERED STN'NT NOT POUND, 


7«4 


* 






GENERATES A LA^EL AND INSERTS 


785 


* 






IT IN 


THE SYM TBL 


786 


MUIT 


BSI 


L 


MOVE 


HOVE TO NEXT STMNT 


787 


* 










788 


* 










799 




LO 


1 





OO^S STMNT HAVE STHNT NC. 


790 




bsc 


L 


H0HC,E 


RRANOH IP YtS 


791 


* 










79? 


» 










79"? 




A 




F5 


AOO STMNT NO. D ITS TO TC 


794 




STO 


1 





PUT ON STRING 


795 


* 










796 


* 










797 




Hnx 


1 


1 


MOVE STRING POIMTc D 


798 


* 










799 


¥ 










9 00 




BSI 


L 


ROUT 


OP=;n STRING ONE WORD 


801 


* 










«02 


* 










803 




lbx 


I? 


EO^ c T 


LOAD END OF SYH TBL ADD^ 


8 04 




SLT 




16 


CLEAR NEXT T WO 


8 05 




STO 


? 


1 


WORDS IN 


806 




STO 


? 


2 


SYMBOL TABLE 


807 




LH 




CATCE 


LOAD STMNT NO. SVM TDL I n 


818 




STO 


r> 





PUT IN SYH T n L 


909 




LD 


I 


SOFST 


GET SIZE O^ 


810 




S 


L 


EOFST 


SYMBOL TARLF 


311 




SRT 




16 


POSITION FOF DIVIDE 


31? 







L 


THRl 


G r T NO. rr 


913 




A 




SIGN 


SYMBOL TfiRLf- EMT^Y 


3 14 




STO 


1 





PUT IN STRING 


815 




mdx 


1 


-1 


MOVE PT TO STMNT ID WORD 


516 




MOX 


L 


EOFST, -"* 


MOVE SYMDOL TA^LF a OINTE^ 


917 




HDX 


L 


SOFXT,-3 




818 




mox 


L 


SOPGT,-! 




819 


* 










9?0 


* 










921 




LO 


1. 


£O c ^T 


CHECK fQP 


9?? 




A 


L 


TWO 


0VERLA D £TWEEN C TRING 


923 




s 


L 


EOFS 


AND SY* n Ol TABLE 


824 




O^O 


L 


JIMY, Z 


BRANCH I r OVERLAP 


925 


* 










826 


* 










327 


* 






PLACE 


S THE GENERATED L^BEL OR 


828 


* 






STMNT 


NO. FCR TH" DO T EST INTO 


9?9 


* 






WORD 


? 0^ THE DO TABLE ENTRY 


830 


HAH 


LD 


1 


1 


LOAD ST^NT NO. 


831 




STO 


7 


1 


°UT IN SY*°rL Tfl c LE 


83? 




esc 


L 


ABEL 


CHECK NEXT STMNT, 


g ii 


* 










814 


* 










835 


XY71 


LD 


L 


ooiir 


LOAD DO STMNT I n 


336 


* 






PLACE 


S THE DO ID WORD T NTO THc 


837 


* 






STATE 


MENT STRING 


339 




A 




F^ 


°UT IN STMNT NO. n ITS 


83R 




STO 


1 





PUT ON STRING 



;;:ite. 



8«*0 

mz 

8*45 

8<46 
81*7 
3l»8 
8**9 
350 
851 

8^? 

857 
85U 

8S5 

856 

857 

858 

850 

860 

361 

86? 

863 

86*t 

865 

866 

367 

868 

86P 

870 

871 

37? 

8?3 

87«i 

875 

8?6 

877 

378 

87° 

88 

881 

88? 

383 

885 
886 
887 
888 

889 

nan 

891 
89? 
893 
39** 

89*3 
896 
897 
898 
89 a 



HOHO 



MPX 

HOX 



SRA 
S 

R-SC 
MPX 



1 
XY7? 



HOVE PT 
RETURN 



OVER ST MM NO. 



* 

HC 

c- 5 

CALM 

CALN? 

CALN3 

CALK4 

CALN5 

CALNO 

NORM? 

ERR56 

ERR57 

ERR58 

E&R59 

ERR60 



nc 

no 
do 
nc 
nc 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



CALL1 LP 

3T0 






LD 

STO 

MOX 



CALL' LH 
STO 



LH 

STO 

MOX 

CALL3 LD 
STO 



LD 
STO 

mx 



* 



CALL** LD 
STO 



LD 
STO 



r H p C V"^ FOR FORMAT STATEMENTS 
11 GET STHNT ID TY^ 

Hf IS IT FORMA? STMNT 

«UIT, - PRANCH IF YES 
HAH PUT STHNT WO. IN DO TRL 



/C 

5 

/1A00 
/ 1 5 
/1A3 

/1B8 Q 
/lCOn 





56 

57 

53 

39 

60 



CONSTANTS 

FORMAT STHNT ID TYPE 

BITS FDR ST^NT NC. 
BACKSPACE CALL 
REWIND CALL 
END FILE CALL 
STO a CALL 

pause call 

call storage 

pause: or stop switch 

MO. 5f 
NO, 57 
NO, 5^ 
NO. 5? 
NO. 6 



CALM 
CALNC 



- P R C p 

EPRNC 
TED 



CALN? 
CALNC 



£PRC7 

EPRNC 
TEO 



CALN 7 
CALNC 



ERR 5 8 
L ERRNC 
TED 



CALNH 
CALNC 



ERRE9 
L ERRNC 



ERROR 
E3R0R 
ERROR 
ERROR 
ERROR 



STORE RACKSPACE CALL 
IN CALNO 



SET UP 

EPRCR NC, 5F 

OUT IN DEVICE NO. 



PUT PEWIND CALL 
IN CALNO 



SET UP 

E1ROP NO. ^7 

PUT IN DEVICE NO, 



"UT END FILF 
CALL IN CALNO 



SET UP 

ERROR NO. 58 

PUT IN DEVICE NO. 



^UT STOP CALL 
IN CALNC 



SET UP 

ERROR NO, 6P 



sriT e: r, 



900 
951 
902 
903 
9QU 
905 
906 
907 
90? 
909 
910 
911 
91? 
913 
91t» 

915 

916 
917 
918 
919 
920 
921 
922 
92? 
9?*+ 
925 
926 
927 
9?B 
929 
930 
971 
972 
933 

°lk 
935 

936 
937 
93? 
939 
91)0 

r«+i 

9**2 
9U3 

9*4^ 

9*<5 
9<*6 
9<*7 
948 
9*49 
950 
951 
95? 
953 

95*f 

955 
956 
957 

958 



CALL5 



* 
FED 

* 
TED 



nnx 



LD 
STO 



STO 



mpv 






* 

* 



* 



* 



SHOT 



* 
AMIN: 



7.AMIN 



LD 

BSC 

MOX 

MUX 

L n 

BSI 

STO 



LD 

BSC 



LD 
DSC 



LD 

A 
STO 



RSI 
MDX 



AMD 
EOR 
BSC 



LD 

STO 

LD 

STO 

LDX 



FED 



C A L N 5 

OALNC 



ERR6 
ER3 NC 



CHECK VALID NO, 



PUT PAUSE CALL 
IN CALNO 



SET UP 

E3ROR MO, 6P 



NORM 2,1 



TAG PAUSE OR STO c SWITCH 





F 

1 
1 



CHECK 

HOR"S 



INITIALISES TO SCAN THE STMNT 
CHECKS FOR THE SEHICOLCN 
OPENS THE STRING ONE WORD 
ADJUSTS THE STMNT NOPM 
PLACES THE SYM T9L ADO? 0^ THE 
CONSTANT ON THE STRING 

LOAD STMNT TO WCPD 
SKIP IF NO STMNT NO. 

MOVE PQINTEF' 

LOAD WHRD 

GET SVM TRL ID WCRD 

SAVE ID WOPP 



NORM? 
L SHOT, - 



1 

l shoe:,? 



BSI L 30UT 



PAVE 
PDUP 
PAVE 



30XX 

AMIN? 2 



PAUSE O r STOP CTV NT 
BRANCH IF NOT 



LOAD WOPH 

BRANCH NOT ^EMI-COLON 



QP~H STRING ONE V'ORD 



LOAD STMNT ID WORD 
ADD ONE TO NORH 
OUT n ACK IN STRING 



OUT SYH TBL ADDR ON STRIN 
PUT CALL ON STRING 



LEGAL VARIABLE 



H09 n S 
HD5HE 
L MASK1 
L SHOF,Z 



LOAD S VM T Q « ID *0P0 
IS IT VALID 
INTEGER VAPIAPLE 
PRANDH IF NOT 



PUT OUTPUT IN STPING 
1 Q LOAD DEVICE NO. 

1 i PUT IN STRING 

CALNO LOAD CALL 
10 PUT IN STRING 

H PAV r D LACE °T AT STMNT 10 WORP 



SEITE 



960 

961 

96? 

963 

a bk 

965 

966 

967 

968 

969 

970 

971 

97? 

973 

97<* 

9^5 

976 

977 

978 

979 

990 

981. 

982 

983 

98*t 

985 

986 

987 

98ft 

989 

990 

991 

99? 

997 

99** 

995 

996 

997 

998 

999 

1000 

1001 

100? 

1003 

100A 

1005 

1006 

1007 

1008 

10 09 
1010 
1011 
1012 
1013 
101*f 
1015 
1016 
1017 
1018 
1019 



* 






SLA 

STO 



STO 
BSC 



MASK? 
HCB9S 
FCUR 
DEVIL 

7£MP 

C99 

ERR61 

CCN5 

C0N5 

ER6? 

END 

SAVE? 

SAVE1 
SAVE 

MASK6 

HOBOE 

SHOE 



* 

* 



* 
* 



* 



* 






OUT1 



DC 
QC 
DC 

oc 

nc 

OC 

OC 

oc 
oc 

oc 

oc 

DGE 
OC 
OC 
OC 

OC 



LO 

EOR 
BSC 



LO 
BSC 



LO 
S 

BSC 



LD 
BSC 



LD 

S 

BSC 



LO 



SIX 
LO 

s 

BSC 



16 

DEC 



NOR"? 
BAKE*? 



CLEAR 



CLEAR ^AUSE OR STO° 
CHECK FOR STMNT NO. 



;wttc 



CONSTANTS 
/CC00 INTEGER 



MASK 





<+ 





999° 

61 

/001<W0006 ERROR 

/O00C FORMAT IP 
6? E3ROR MC. 

/100«4 END STMNT 



CONSTANT 
SYM T9L 10 WORD 
CON TO ADD ONE TV NORM 
TEMPORARY STORAGE 
YfHOORAPY STORAGE 
MAXIMUM VALUE HP oftUSE 
ERROR NO. 61 

TVPE 

TYPE 

6? 

j n T V o F 





/01FF 

/D 3 OE 



TFMFORARY STORAGE 
STORAGE FOR STRING POINTt 
NORM MASK 
MASK FOR INTEGER VARIABLE 



HHROS LOAD SYM TBI ID WORD 
MASK? IS IT VALID INTECEP CON 
L CICS1 2,7 BRANCH TF NOT 

SEMI -COL ON 
i i LOAD NEXT WORD 

L CLCS1 ?,Z BRANCH tf NOT SE^I-COLON 



? 1 

CB9 

L ER61,7- 



NCR*? 
L AMIN2, 



LOAD CONSTANT 

IS IT GREATER THftN 9999 

BRANCH IF YES 



IS STMNT oflusF 0^ STOP 
BRANCH IF NOT 



7 1 LOAD CONSTANT 

L TEN IS IT GREATER THAN 10 
L AMIN2, 7 BRANCH IF NCT 



? 1 LOAD WO D C 

RTCO CONVERT TO DECIMAL 

CHECK POR TRANSFER STMNT 

oRIOR TO THE END C TMNT 

i SAVE SAVE ADOR OF END STMNT 

L SOFE IS END STMNT THE 

SAVE FIRST STMNT IN STRING 

L CUT, - BRANCH T c Vfs 



. T t V. 



10 2 
1021 
102? 
1023 
102* 
1025 
1026 
1027 
1028 
1029 
10?0 
1031 
10 32 
1073 
103*4 

1035 
1036 
1037 
1038 
1039 
10<i 
10*1 
10*2 
30*43 

io*<* 

10*5 
10*6 
10*7 
10*8 
10*9 
1050 
1051 
1052 
1053 
105* 

105*; 

1056 
10*57 

1058 

1059 
1060 
1061 
1062 
1063 
106* 
1065 
1066 
1067 

1068 
1069 
1070 
1071 
1072 
1073 
107* 
1075 
1076 
1077 
1078 
1079 



OUT1A 



OUT2 



TEST 



ER61 



LOX 
STX 
LO 
SRA 

AND 
STO 

MDX 

STX 
LP 

9SC 

MDX 

LOX 

LD 

SPA 

S 

BSC 

BSI 

DC 

oc 

s 

bsc 



LOX 

LP 

STO 

in 

STO 

LO 

STO 

MDX 

STX 

esc 



SLA 

STO 

LO 
DSC 



CHECK 



PFMPY 



DC 

9SC 

LO 

AMD 

H 

SLT 

STO 

LO 
S 

STO 
LOX 

MDX 
LD 



12 

7 
7 



L2 



II 
1 



L 

L 



SOF^ 

SAVE? 



2 

HASK6 

OUT? j 



SAVF1 

SAVF1 

SAVE 
7 

OUTlA 

SAVE 2 



11 

CON^ 

0UT1, - 

TRCKS 

OUT 

* 

CON* 

OUT, - 



II EOFS 
L ERRIO 

1 

EP62 
1 1 

END 

1 2 

1 2 

LI EOF<: 

L CUT 



16 
L NORM 2 

ERR61 
L CLO^l 1 



INITIALIZE CHECK POINTER 

SAVE CHECK POINTER 

LOAD STMNT ID WQPD 

RET NORM 

OF STATEMENT 

STOPt NORM 

HOVE FT TO NEXT STMNT 

♦MOOIFIAPLE 

SAVE NEW PT ADDRESS 

IS NEW ADDRESS THE ADORES 

OF T^E END STATEMENT 

SKIP IF VES 

CHECK NXT STMNT CM STRING 

ADDR OF STMNT BEFORE END 

LOAC STHNT ID WORD 

GET STHNT IE TYOF 

IS IT FORMAT STMNT— IF v^ 

CHECK °REVTOUS STMNT 

CHECK FOR TRANSFER STMNT 

GO TO ME XT "HAS" 

GO TO NEXT INSTRUCTION 

IS IT ER^OP STMN T 

BRANCH IE Yes 



LOAD FT WITH END O^ STPIN 

PUT ERROP STMNT TO WOPO 

AT END OF STRING 

PUT ERROP NO. 6 2 

ON STRING 

PUT END STMNT 10 WORD 

ON STRING 

MOVE STRING POINTER 

NEW END OF FTRTNP AOORESS 

GO TC NEXT PHASE 



SET UP ERROR NO. 61 
TURN OF^ PAUSE 
OR STOP SWITCH 
D UT ERROR CN STRING 



THI 1 ^ IS A SUBROUTINE TC GET SYMBOL 
TflPLE AOQPFSS ID ANP LOAD APCUMULATO 



L 0EMPY *,■ 

1 

L MASK 
L THRE 

16 

DEVIL 

L SOFST 
DEVIL 
OEHPV i 

L2 

2 3 
? 



ENTRY POINT 

RETURN IF SPECIAL OPERATO 

LOAD WORD 

GET SYM TBL ENT^Y NO. 

GET ADDRESS OF ENTRY 

RELATIVE TO START 

OF SVMROL TABLE 

GET A8S0LUTF AOOFESS 
OF SYMBOL TABLE ~NTRY - 3 
STORE ABSOLUTE APDRESS 
GET ADHRESS OF ENTRY ID 
*WORD. MCDTFIABL'. 

LOAD SYM TBL ID WORD 



: i t e n 



108 
1081 
108 2 
1083 
10 8i» 
.1085 
10 86 
10 87 
10 88 
1089 
1090 
1091 
109? 
109"* 
109*4 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
111? 
1113 

11I»» 

1115 

1116 
1117 
1118 

1119 
1120 
ll'l 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 

1131 
113? 
1133 
1134 
1135 
1136 
1137 
1138 
113« 



X 

* 



HOVE 



NXIO 

* 

ROUT 



8CNC 



PU7 



* 
* 



DTOD 

PEP 



RQX 

* 

* 



* 
BCXX 



BSC 



DC 

m 

SRA 
AND 
STO 

MDX 
BSC 



nr 

STX 
LD 
S 
A 

STO 

LDX 

LDX 

Hnx 

STX 

LD 

STO 

MDX 

MDX 

MDX 

LDX 

BSC 



STX 
LDX 
SRT 



STO 

LD 

RTE 

STO 

LD 

MDX 

MDX 

LDX 



bsi 

BSC 



7 CHECK RETURN 

THIS IS A ^JBROUTINf TO MOV c THE 

POINTER TO FOLLOWING STATEMENT 

q ENTRY POINT 

1 o LOAD STHNT ID WC^D 

2 GET NORM 

I IHNPW OF STATEMENT 

NXIT 1 GET AOn^ O c NEXT 

Li 3TMNT ID WD. MODI c IAPLE 

I HOVE RETURN 



OPENS THE STRING ONE WCRD FOR 
INSERTION OF A GENERATED L»^FL 

ENTRY POINT 

7EMP SAVE STRING POINTER 

EOFS GET SI7E OF 

ZEMP STRING TO 

ONE BE MOVED 

PONP 1 PUT IN COUNTER 

LI LOAD COUNTER. MODIFIABLE 

I? £OFS GET NEW SIT 

2 1 OF STRING 

L? EC CC ? NEW END OF STRING ADDR 

? -1 LOAD WOS>D AND MCVE 

2 IT UP ONE WORD 

? -1 MOVE POINTER 

1 -1 DECREMENT COUNTER 

P!J7 CONTINUE LCOP 

7£MF RESET INPUT POINTER 

ROUT RETURN 



L 
L 
L 



II 
T 



LI 



CONVERT BINARY TO DECIMAL 



E-DX : 

k 

16 

TEN 

WORK 

TEC 

DEC 

WORK 

-1 

REP 




30XX 
AMIN? 



SAVE STPING POINTED 

D DSITinw FD r - DIVIDE 

DIVIDE °V TEN 

SAVE QUOTIENT 

LOAD DECIMAL MO. 

BRING REMAINDER TO 

SAVE DECIMAL NO. 

LOAD OUOTIFNT 

DECREMENT ^CUNT C c DIVIDE 

GET NEXT NO. IN CONVERSIO 

RESTORE IN^L'T POINTER 

♦MODIFIABLE 



AC 



*>UT SYM TBL AHOP ON 
PUT CALL ON STRING 



STRIN 



DC 
STX 



PUTS THE POINTER TO A CONSTANT 
IN THE STRING - PLACES THE 
CONSTANT INTO THE SYM9CL TA3LE 
CHECKS FOR A SYM TBL DVE D LA° 

ENTRY POINT 

7EMP1 1 SAVE INDEX REGISTER 3 



seite ?o 



imi 
114? 
i lif? 

1144 
1145 

111+6 
11*7 

H4e 

1149 

115 
1151 

115? 

1153 
1154 
1155 

1156 
1157 

1158 
1159 
1160 
1161 
116? 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 

1179 
1190 
1181 
118? 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
119? 
119* 
1194 
1195 
1196 
1197 
1198 
1199 






LDX 
STX 

LD 

S 

SRT 

D 

A 

STO 



LD 

STO 

l_n 

STO 

SLA 

STO 



MDX 
MDX 
MOX 



13 
x 

L 



LO 

A 
S 

OSC 

ZEM°1 LDX 

RSC 

DEC DC 

WORK nc 

TEN OC 

SIGN1 OC 

* 

* 

TRCKS OC 
LD 
STO 
A 
STO 

Ln 

SPA 

s 

BSC 

s 

BSC 

S 

DSC 

s 

3SC 

s 

DSC 
S 



EOFST 
WORK 
SOFST 
WORK 

16 
THRP 

SIGN1 

1 



L 

L 

L 

L 

LI 

I 



ID OF SYM TRL AHOR 

PUT IN WORK 
GET SI7E 0* 

SYMBOL TABLE 
POSITION EOF divide 
GET ENTPY NO. 
FOR NEW ENTPY 
STOR^ IN STRING 



otJT CONSTANT 0N SYMBOL TABLE 

Q£C PUT ne CI ^ A| _ CONSTANT IN 

1 SYMBOL TA"L F 
MASK? °UT SYM TRL 10 WCRO 
q 1H SYMBOL TA«L£ 

IP, PUT 7 EROFS AS SECOND WORE 

2 OF SYM T»L NAME 



I EOFST, -7 
L SOFXT,-"* 

L 30Fr,T,-3 



EOFST 

TWO 

EOFS 
JIHY, 7 


BOXY 

CONSTANTS 





10 

/80C1 



MODIFY SYMBOL 
TABLE ADDRESS* 



TEST FOp 0VERLA 

BETWEEN STRING AND 
SYMBOL TABLE 
BRANCH IF OVERLAC 
RESTORE XR*. MODTFTAqLE 
RETURN 



DECIMAL CONVERSION WORD 
TEMPORARY STORAGE 

TEN 

SIGN FOP SY*< T°L 



SUBROUTINE TO CHECK A c TATEfEMT 
10 WCRO FOR A TPANSFEP STATEMENT, 
ROUTINE BRANCHES IMOIRFCT THROUGH 
FIRST OPEFAND IF TRANSFER, MO 
SECOND T F NOT. 





TRCKS 

WRT1 1 

WR111 

WRT? 1 



11 

CPN1 

WRT1 , - 

CON? 

WRT1, - 

CON" 8 

WRT1, - 

NCCN1 

WPT1 ,- 

CONi* 

WRT1, - 

C0N7 



ENTRY a OINT 
LOAD RETURN ADORLSS 
STORE TN TRANSFER EXIT 
ADD ONE 

STORE IN NON-TRANSFER EXT 
LOAD WO Dr 
GET 10 TYPE 
IS IT GO TO 
BRANCH IF YfS 
IS IT STOP 
BRANCH I p YfS 
IS IT RETU^' 
BRANCH IF YfS 
IS IT CALL UN" 
BRANCH IF YES 
IS IT IF 
BRANCH IF YES 
IS IT Stino CALL 



5EITE ?i 



1200 BSC L WPT?,^ CHECK SUHP NfiME I c SO 

1201 LO 1 GET ID WORD OF STRING STMN 
• 12 02 SLA 16 AND PUT STMNT NO P IT IN 
1?03 UD 1 1 CA3RY. GET SVMT PCINTEP TC 
12fl«t BSC C STMNT NO. SKIP ON 0=0FP 
12fl5 LD 1 2 GET S M YT °T. SHI^T 

1205 SLA 6 n T - REMOVE EXTRANEOUS TIT 

1207 SPA 5 S0FST-3*N-3=P0S OP 1ST 

1208 STO STEN *0 OF SYMROL TABLE ENTRY 

1209 SRA 1 * 

1210 A STEM * 

1211 S I SCPST * COMPUTE THE AOHRE3S OF 

1212 EOP HFFFP * THE FIPST WORO C^ THE 

1213 A FIV C * NAME IN THE SYMBOL T&PLF 
121** STO LN1+1 

1215 A WON * 

1216 STO LN2+1 

1217 LN1 Ln L •-» GET ^TRST WOPn 

1218 STO Nl SAVE IT 

1219 LN? LO L *-* r ET SECOND WORD 

1220 STO N2 SAVE IT 

1221 STX ? SX? SAVE XR2 

1272 LOX 2 ENTAB-BNTAP GET A WDPD COUNT 

1223 CNN LOO I? BNTAP-2 GET A "> WO NAME T^L ENTR 

122i» SO Nl COMPARE TO STRING NAME 

12?5 PSC L WRT1V,+- BRANCH ON COMOflRr 

1?26 MDX ? -? C LSE MOVF XR? 

1227 HOX CNN LOO* 5 n^Qv 

1??8 LDX I? SX2 RESTORE XR? 

1220 WRT2 BSC I *-* EXIT IF NOT TRANSFER STMNT 

1230 * *MOOIPIfl"LF 

1231 WRT1X LOX L? *-* SET XP2 

1232 SX? EOU *-l MODIFIABLE 

1233 WPT1 BSC I »-* r XIT IF TRANSFER STMNT 
123^4 * *HODTFIARLE 

1235 * 

1236 * CONSTANTS 

1237 WR111 OC 1 ONE 

1238 CCN1 OC /000E GO TO 

1239 CON? OC /0017-/OOOE STOP 
1?«*0 C0N3 OC /0010-/0017 RET'IPN 
12*41 NCON1 OC /00lC-/00in CALL LINK 
12**? C0N*t OC /OOO^-ZOOIC IF 

12**3 CCN7 OC /0006-/OOOP CALL 

l?t4(* Nl BSS E 1 CALLED SUPR NAME IN SYMBOL 

1245 N2 OC *-* TABLE FORMAT 

12*+6 TCO OC 2 CONSTANT 

12**7 WCN OC 1 CONSTANT 

1218 BNTAB EOU * SPECIAL TRANSFER SUPRS. 

1?U9 OC /Ci*08 .CALL S^ECL. 

1250 OC /GOD"* 

1251 OC /8<»0e .CALL BACK, 
125? OC /Ri»8n 

1253 DC /B098 .GALL OLEVL. 

1251 OC /0253 

12*55 DC /88?b .CALL OEOUE. 

1256 OC /8905 

1257 OC / 8 6.9 8 .CALL CL r &0. 
1?58 OC /0658 

1259 ENTA a £OU * 



:ite 



1250 STEN GC 

1261 HFFFF 10 

1262 p IV£ DC 

1263 =»SS 
126** END 



■»-* ? + SYHT E.N TPV NUH 

/FFFP top-ING CONSTANT 

/5 CONSTANT 

OV£FL-*+l?0+i* PHASE-!** PATCH Af? r A 

3TAPT 



